home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Util.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  6.2 KB  |  14 lines  |  [TEXT/.Ob4]
  1. ¯6F
  2. ˇ‘  ¿ü73fzíUtilÇé?πE£éÉCopyList?FindCharExtractLinesπUmlautOMéUmlautMOUmlautMA£ÑÖ;‚ÜDisplay;ı‰ƒViewers;˜ê
  3. MenuViewers2¯"TextFrames2ˆßæTexts;‚WêFonts2ˆÊÃOberon6e∏uFiles2˘úfIn<
  4. ‡4OutÜ
  5. ˚…¸/ˇ≤ ˝Û˝¬ˇïˇê
  6. ˇäˇIˇC
  7. ˇT
  8. ˇ ¸á˛)˛%˚◊˝ÿ˝—˝… ¸L˝˛˛˛d    ˚—&˚‚    ˚∫    
  9. ˚∞    ˚≠    ˚¶
  10. ˚à
  11. ˚
  12. ˚z˚há => ssueoeaeUeOeAeˇ‚'·‡···ÎÙ···˝··························ssˇ®S'RQRRRT\RRRdRRRRRRRRRRRRRRRlRRRRtRRRRRRR|ÕŒÀ÷fiÊÓSystem.Closeà|¶øaˇÏêî!ˇh;·8êA;¿;†ìø ìøìø ìøÄbˇÉ√\,ûAʧÄûˇ¸Ä¢ˇ‡Ä≈ˇ¯Ä‰ˇ0@˙å ûÉæ ùÅÅ(ˇ¸ÅBˇ‰ÅjˇËÅâˇÙlXÉΩ ùÉù< ùÉ} õÉ{8ÄǡËÄÑˇÿ ùÄΩ8‹ÄBˇËHÄAúÿ@¸8Ä¢ˇËÄÖˇÿ8ø4ÄBˇËHÄA3úàfl4,Ü @‰àˇ4/
  13. A˙â4/à    @˛â?4,âAÊâ_4/
  14. Ö@˘∞8bÅbˇËÄãˇ–àø48¿ÄBˇËHÄA8bÅǡËÄåˇ–ÄBˇËHÄAÄbˇÄc`ÄÇÄBˇËHÄA8Ä∞ü68}8ü6Ä¢ˇÄ•ˇ¯ ùÄ|    ¶Ä]O‡!ÄA8}0úˇŒÄBˇ‰HÄA8}8úÄBˇ‰HÄAC‡C‡˛8}ÄBˇ‰HÄAÄhÄ!|¶ªaˇÏO‡ |¶øÅˇêî!˛P;·@êA;£;ƒ;Ö롸8êPê êê ê8ĬˇËÄܡ‘Ä‚ˇÄßd ÖÄ•ÅˇÄ»d ÜÄΔ ÄBˇËHÄA8Å"ˇËÄ⡑ÄBˇËHÄA©_0/ä@˛pâH,ã^@Êd8P8üT8øX8fl\ÄBˇHÄAÅü\/ A¯<8ÄǡËÄÑˇ‘ÄøPÄflTÄBˇËKˇ˝ùÄA8Ä¢ˇËÄÖˇ‘ÄBˇËKˇ˝ÖÄA®fl0/ÜA˛®ˇ0,á@Ê|…¶9]9Lâ 8B@P/A˙Hç+ô
  15. B@4/    A˙,ç ù*B@ /A˙ç+ù
  16. B@ /@˙ˇ‹ò
  17. C‡ò
  18. âüI}Ét∞|C‡8Äòù8†∞ºÄxÄ!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇ∏;·@êA;√롸ÄBˇHÄAÄflˇ¸êf4ġˇ¸Å4/àA˛tÅ?ˇ¸ÅI4 äÅj ãÅãÄlˇ¸Äǡ‰Ä§ˇËÄ√ˇÙ|Ü(@ÊDġˇ¸Å4 àÅ( âÅIÅjˇ¸Åǡ‰ÄlˇËÄãˇÙdÄ© ÖÄ≈êfiC‡ 8‡ê˛ÄÄ!|¶ª¡ˇ¯O‡ |¶øAˇËêî!ˇ†;·@êA;£;ƒ;Ö;f롸;@â!(/    A˙hÅ_ˇ¸8jÅbˇËÄãˇÿ8øÄBˇËKˇˇ)ÄAâü/å
  19. A˛à,É@ÊC‡|∫àü|ù—Æ3ZC‡ˇ¥àø/|¿&T«fl˛ò˚|∫9}—Æ≥\Ä(Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇ†;·@êA;£;ƒ;e;Ü;G;(롸/öA¸H,ôA‰@|π‡};»Æ/    *A˙0|∫|π‡}]–Æ}{»ÆäXA˛ 8`C‡§3Zˇˇ39ˇˇC‡ˇ∏,ô@‰/}Ä&UÉœ˛C‡Ä/ôA¸|π‡|{»Æ,É*@Ê 39ˇˇC‡ˇ‰/@¯ 8`C‡P/öA¸<8û8}8‹8ª8˙9Åˇ¸Kˇˇ,ÉAÊ 8`C‡3ZˇˇC‡ˇƒ8`C‡‡Ä(Ä!|¶ª!ˇ‰O‡ |¶øaˇÏêî!ˇ†;·@êA;£;ƒëˇ¸;Äã}/A˙08bÄǡËÄÑˇ–8ªÄBˇËHÄA3ú|º}‡ÆC‡ˇ–Ä(Ä!|¶ªaˇÏO‡ |¶ø°ˇÙêî!˛p;·8êA;¿ìfl4ìfl$ìflìflìflìfl808ÄÄ8ø29Kˇ˙Õ89Kˇ¸}®ø2/Ö@˝¿Äfl,ÜAÊ¥8bˇ–8ÄÄBˇ‰HÄA8ÄÄBˇ‰HÄA;√8Ä‚ˇËÄáˇÿÄø8¿ÄBˇËKˇˇMÄA;†9ô<8∞8ÄÄ8ø08fl<9Kˇ¸…â?</    A˙©_0/ä@˛C‡º©0,ã@†8∞8ÄÄ8ø08¿Ä©ü00Ïˇˇ©21ˇˇ9Kˇ˝A/A˙p8∞8ÄÄ9Kˇ˛Q8bÅ"ˇËÄ⡖ÄBˇËKˇ˛±ÄAÄ8ù©_0}}R0´ÄBˇËHÄA8ÅǡËÄåˇÿÄø8›ÄBˇËKˇ¯qÄAC‡®0|ù3§C‡ˇ8`8ü88ø:ÄBˇHÄA808ÄÄ8¢ˇ¿8¿
  20. ÄBˇ‰HÄA8ûÄ¢ˇ‰®•®fl8®ˇ:ÄBˇ‡HÄAê4 ûÄ~ÄÇÄBˇËKˇ˛ôÄAÄ`Ä!|¶ª°ˇÙO‡ |¶øAˇËêî!ˇ†;·8êA;√;Ä;@;†ˇˇ;`8¿êfiÄ‚ˇÿ© õ@@¸–8{8ÄÄBˇ‹HÄA;É ú©<,â@Âò úÅ\ äÅjÅãˇ¸Äbˇ‰ÄɡËĨˇÙ @˙X úÉ\ öÄ⁄ÄÊˇ¸Åˇ‰Å(ˇËÅGˇÙjHÉZ öâz5/ãA˛  öÅö0|åË@Âì^ öÉ∫08|ÄBˇ‹HÄA;ÉC‡ˇ` ú®| {C‡ˇ(Ä0Ä!|¶ªAˇËO‡ |¶øÅˇêî!ˇx;·8êA;¿;†ìø(ìøìøìø Äǡ®dVÄ¢ˇ®ÖXÄBˇ‹KˇˆùÄA;√ ûÉæ ùÄ›ÄÊˇ¸Åˇ‰Å(ˇËÅGˇÙjHÉΩ ùÉΩ;Ä8ÅbˇËÄãˇÿ8Ω8‹ÄBˇËKˇ˜çÄA8ÅǡËÄåˇÿ8ø4ÄBˇËKˇ˚)ÄA3úà4/@˙C‡4àü40§ˇÄ+ÖA˝T¶:8‚ˇ®}0.}    ¶O‡ C‡§C‡†8bÅ"ˇËÄ⡖8†ÖÄBˇËKˇ˘IÄAC‡Ä8bÅBˇËÄ䡖8†ÜÄBˇËKˇÙµÄAC‡`8bÅbˇËÄãˇ–8†äÄBˇËKˇÙïÄAC‡@8bÅǡËÄåˇ–8†öÄBˇËKˇÙuÄAC‡ 8bÄǡËÄÑˇ–8†üÄBˇËKˇÙUÄAÄ¢ ÖÄ≈,Ü@ÂT8}0úˇˇ8ºÄBˇËKˇ˜≠ÄA8}0úˇˇÄ¢ÄBˇËHÄA8Ä‚ˇËÄáˇÿ8Ω8‹ÄBˇËKˇı-ÄAC‡˛§ÄXÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇx;·8êA;¿;†ìø(ìøìøìø Åˇ®hVÅ"ˇ®âXÄBˇ‹KˇıÖÄA;√ ûÉæ ùÅ]Åjˇ¸Åǡ‰ÄlˇËÄãˇÙdÉΩ ùÉΩ;Ä8Ä¢ˇËÄÖˇÿ8Ω8‹ÄBˇËKˇÛ—ÄA8ĬˇËÄܡÿ8ø4ÄBˇËKˇıÄA3úàˇ4/@˙C‡Xâ41(ˇÄ+â'A˝U*:9bˇ}ãP.}â¶O‡ C‡»C‡ƒ8bÄǡËÄÑˇ–8†ÅÄBˇËKˇÙ5ÄAC‡§8bÄ¢ˇËÄÖˇ–8†ÇÄBˇËKˇÚùÄAC‡Ñ8bĬˇËÄܡ–8†ÉÄBˇËKˇÚ}ÄAC‡d8bÄ‚ˇËÄᡖ8†ÑÄBˇËKˇÚ]ÄAC‡D8bÅˇËÄàˇ–8†ÖÄBˇËKˇÚ=ÄAC‡$8bÅ"ˇËÄ⡖8¢ˇ8¿ÄBˇËHÄAÅB äÅj,ã@ÂT8}0úˇˇ8ºÄBˇËKˇÙ    ÄA8}0úˇˇÄ¢ÄBˇËKˇÛÒÄA8ÅǡËÄåˇÿ8Ω8‹ÄBˇËKˇÛÄAC‡˛ÄÄXÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇx;·8êA;¿;†ìø(ìøìøìø Äbˇ®cVÄǡ®ÑXÄBˇ‹KˇÛmÄA;√ ûÉæ ùÄΩÄ≈ˇ¸Ä‚ˇ‰ÅˇËÅ&ˇÙi@ÉΩ ùÉΩ;Ä8ÅBˇËÄäˇÿ8Ω8‹ÄBˇËKˇÒïÄA8ÅbˇËÄãˇÿ8ø4ÄBˇËKˇÚ˘ÄA3úâü4/ @˙C‡åà40ɡÄ+Ñ'A˝TÖ:8¬˛d|Ê(.|ȶO‡ C‡¸8bÅˇËÄàˇ–8¢˛`8¿ÄBˇËKˇÒ˘ÄAC‡ÿ8bÅ"ˇËÄ⡖8¢˛\8¿ÄBˇËKˇaÄAC‡¥8bÅBˇËÄ䡖8¢˛X8¿ÄBˇËKˇ=ÄAC‡ê8bÅbˇËÄãˇ–8¢˛T8¿ÄBˇËKˇÄAC‡l8bÅǡËÄåˇ–8¢˛P8¿ÄBˇËKˇÔıÄAC‡H8bÄǡËÄÑˇ–8¢˛L8¿ÄBˇËKˇÔ—ÄAC‡$8bÄ¢ˇËÄÖˇ–8¢˛H8¿ÄBˇËKˇÔ≠ÄAĬ ÜÄÊ,á@ÂT8}0úˇˇ8ºÄBˇËKˇÒÕÄA8}0úˇˇÄ¢ÄBˇËKˇÒµÄA8ÅˇËÄàˇÿ8Ω8‹ÄBˇËKˇŸÄAC‡˛LÄXÄ!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇX;·8êAÄBˇ¯HÄA8 8Ä ÄBˇ¯HÄA8@8Ä ÄBˇ¯KˇÓ’ÄAÄBˇ¯HÄA/@˙Ã88Ä ÄBˇ¯HÄA88Ä ÄBˇ¸HÄA8b˛@8ÄÄBˇ¸KˇÓÖÄA;¿ æ }?Ú æ âI }ÆäX@˛  æ }üÚàl ,ÉAÊ 3fiC‡ˇÃ8@8Ä ÄBˇ¸KˇÓqÄA æ |üÆ/A˙  æ |ÆÄBˇ¸HÄA3fiC‡ˇÿÄBˇ¸HÄAC‡ˇ(ÄxÄ!|¶ª¡ˇ¯O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8bÄ¢ˇËÄÖˇ–ÄBˇËHÄAÄÄ!|¶ª·ˇ¸O‡ âä "$)bíñˇ 
  21. ?Icghzñ±:\`bjlrtx}Ö¢§™¨ˆ(*02Ö∑πø¡!ginz~ã¯˝‡8FindChar4ch
  22. ‚{f‰{len„{pos
  23. ·{v¯Ï¿GetPattern‘begÿend„{pl
  24. –t‹time¯†¿GetText
  25. ·{t¯“ ¿GetLinech‰{eofÂ{i„{ll¯ú ¿MatchÊ{mposÂ{npos¯π ¿WriteString‰{ch„{i¯≈ÿ8ExtractLinesºeof∞ll
  26. ·{out≤pl‚{pos
  27. t
  28. ¥v∏x∫y¯é(8GetSelection
  29. ·{F
  30. Â{f‚{time
  31. „{v‰{x¯î–8UmlautOM4ch„{pos
  32. ‚{t
  33. ·{v¯£–8UmlautMO4ch„{pos
  34. ‚{t
  35. ·{v¯ø–8UmlautMA4ch„{pos
  36. ‚{t
  37. ·{v¯é    8CopyList from·{is¿to¯ü    8$$